10 POKE53280,0:POKE53281,0
20 PRINTCHR$(147)
30 PRINT"[156]  SPIELREGEL                    <J/N>"
32 POKE198,0:WAIT198,1:GETA$
34 IF A$=CHR$(74)THEN1000
36 IF A$=CHR$(78)THEN50
50 GOTO520
60 X$="[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]":
65 Y$="[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":
70 C$="  ":S=31:H=3
80 GOSUB 110
100 H=0:RETURN
110 POKE53265,11:PRINT"[147]";
140 PRINT"            KEINE CHANCE! [146]":PRINT:PRINTTAB(5)X$;
150 FORI=6TO0STEP-1
160 PRINT:PRINTTAB(5)"[180] ";:FORJ=1TO5
170 Y=I*5+J
200 B$=" [209]"
210 IFY<=STHEN230
220 B$="  "
230 PRINTB$;" [170] ";
240 NEXTJ:PRINT:NEXTI
260 PRINTTAB(5)Y$:POKE53265,27
270 IFH=3THEN350
280 PRINTD$;"   GENOMMEN =";K;"  [209] "
290 IFH=2 THEN350
300 PRINT" [154]   JETZT SIND'S =";S;" [209]"
310 IFH=0 THEN 350
330 FORI=1TO1500:NEXTI
350 RETURN
360 PRINT"[150]  WIEVIEL [209] WILLST DU HABEN?  ";
370 POKE19,64:INPUT"[192][192]>[152] ";K
380 IF (K<1)OR (K>4) THEN PRINT:PRINT"[145][145][145]":GOTO360
390 K=INT(K):S=S-K:H=1
400 D$="[158]DU [146]  ":RETURN
440 K=5-K
450 S=S-K:H=0
470 D$="[158]ICH[146]  "
480 IF S<>1 THEN 510
490 H=2
500 C$="DU HAST DEN LETZTEN [209] - ICH BIN SIEGER!"
510 RETURN
520 GOSUB60
530 GOSUB 360:GOSUB110:GOSUB440:GOSUB110
570 IF H<>2 THEN 530
580 PRINTC$
590 END:GOTO50
1000 PRINT"[147]   [152][218]GEGEN MICH HAST DU KEINE CHANCE[218]"
1010 PRINT"   DU NIMMST MIND. 1 [209], MAX. 4 [209] WEG  "
1020 PRINT"     DANACH BIN ICH AN DER REIHE!!"
1030 PRINT"[149]    WER DEN LETZTEN [209] NEHMEN MUSS,"
1040 PRINT"             HAT VERLOREN!"
1045 PRINT"========================================"
1050 PRINT"[151]       DRUECKE BITTE EINE TASTE."
1060 WAIT 197,63:GOTO 50